
(map (lambda (a b)
       (midi-combine-bytes a b))
     '(12 35 67)
     '(25 31 95))			; => (3212 4003 12227)

(map (lambda (z)
       (midi-uncombine-value z))
     '(3212 4003 12227))		; => ((12 25) (35 31) (67 95))

(map (lambda (z n)
       (midi-integer-to-byte-list z n))
     '(127 32767 8388607 2147483647)
     '(1 2 3 4))			; => ((127) (127 255) (127 255 255) (127 255 255 255))

(map (lambda (z)
       (midi-status-check MC-control-change z))
     '(178 108))			; => (#t #f)

(map (lambda (s)
       (list (midi-status-major s)
	     (midi-status-minor s)))
     (list #x90 #x91))
